www.gusucode.com > 云网互动影视系统(12套模版和资源联盟) 6.2 > 云网互动影视系统(12套模版和资源联盟) 6.2.4/免费版/Admin/Collect/Admin_Inflow.asp
<%Server.ScriptTimeOut=9999%>
<html>
<head>
<META content=ywnt,云网互动影视管理系统 name=keywords>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>云网互动影视6.0--采集影片管理</title>
<LINK href="../css/css.css" type=text/css rel=stylesheet>
<style type="text/css">
<!--
.RefreshLen {
BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid; MARGIN-top: 10px;MARGIN-BOTTOM: 5px; BORDER-LEFT: #000000 1px solid; WIDTH: 400px; BORDER-BOTTOM: #000000 1px solid; HEIGHT: 20px; TEXT-ALIGN: left
}
-->
</style>
</head>
<BODY leftMargin=0 topMargin=0 scroll=yes MARGINHEIGHT="0" MARGINWIDTH="0">
<!--#include file="conn.asp" -->
<!--#include file="../../conn.asp" -->
<!--#include file="Inc/Function.asp" -->
<!--#include file="../YWNT_TMS_inc/YWNT_TMS_Function.asp" -->
<!--#include file="../YWNT_TMS_inc/YWNT_TMS_Page.asp" -->
<script language="JavaScript" src="Inc/Movie_Inflow.js"></script>
<%
'===================================================================================================================
'软件名称：云网影视管理系统
'Copyright (C) 2002-2007 ywnt.net All rights reserved.
'产品咨询QQ：489234,2813712
'程序版权：云网互动科技有限公司
'程序开发：云网互动科技有限公司
'官方网站：http://www.ywnt.net
'郑重声明:
' 1、免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接,商业版本无此要求;
' 2、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息；
' 3、云网互动科技有限公司保留此软件的法律追究权利
'===================================================================================================================
Call CheckLogin("Collect")
sub Inflow(Action,ID)
Response.Write"<table class=table cellspacing=1 cellpadding=3 width=""98%"" align=center border=0>" &vbcrlf
Response.Write"<tbody>" &vbcrlf
Response.Write"<tr>" &vbcrlf
Response.Write"<td colspan=""4"" class=xingmu>影片入库</td>" &vbcrlf
Response.Write"</tr>" &vbcrlf
Response.Write"<form action=""Admin_Inflow.asp?Action="&Action&""" method=""post"" name=""form"">" &vbcrlf
Response.Write"<tr>" &vbcrlf
Response.Write"<td width=""21%"" height=32 align=""right"" class=""hback"">选择服务器：</td>" &vbcrlf
Response.Write"<td colspan=""3"" class=""hback""><input name=""SeverName"" type=""text"" size=""40"" readonly>" &vbcrlf
Response.Write"<input name=""SeverID"" type=""hidden"" id=""SeverID"" value="""">" &vbcrlf
Response.Write"<input type=""button"" name=""SubmitSever"" value=""选择服务器"" onClick=""SelectSever();"">" &vbcrlf
Response.Write"<input type=""button"" name=""SubmitSeverAdd"" value=""添加服务器"" onClick=""window.location.href='../Admin_Sever.asp?Action=Add'""></td>" &vbcrlf
Response.Write"</tr>" &vbcrlf
Response.Write"<tr>" &vbcrlf
Response.Write"<td height=32 align=""right"" class=""hback"">栏目转换：</td>" &vbcrlf
Response.Write"<td colspan=""3"" class=""hback""><input type=""button"" name=""SubmitClassAdd"" value=""添加栏目转换"" onClick=""window.location.href='Collect_Type.asp?Action=Add'""> <font color=""red"">如果还未设置对应栏目转换请先去设置对应栏目转换</font></td>" &vbcrlf
Response.Write"</tr>" &vbcrlf
Response.Write"<tr>" &vbcrlf
Response.Write"<td height=32 align=""right"" class=""hback"">地区转换：</td>" &vbcrlf
Response.Write"<td colspan=""3"" class=""hback""><input type=""button"" name=""SubmitClassAdd"" value=""添加地区转换"" onClick=""window.location.href='Collect_Region.asp?Action=Add'""> <font color=""red"">如果还未设置对应地区转换请先去设置对应地区转换</font>"
Response.Write"</td>"
Response.Write"</tr>" &vbcrlf
Response.Write"<tr>" &vbcrlf
Response.Write"<td height=32 align=""right"" class=""hback"">所需影币：</td>" &vbcrlf
Response.Write"<td width=""16%"" height=32 class=""hback""><input name=""MovieCoin"" type=""text"" value=""2"" size=""10""></td>" &vbcrlf
Response.Write"<td width=""21%"" align=""right"" class=""hback"">初始点击数： </td>" &vbcrlf
Response.Write"<td class=""hback""><input name=""MovieClick"" type=""text"" value=""0"" size=""10""></td>" &vbcrlf
Response.Write"</tr>" &vbcrlf
Response.Write"<tr>" &vbcrlf
Response.Write"<td height=32 align=""right"" class=""hback"">影片权限：</td>" &vbcrlf
Response.Write"<td colspan=""3"" class=""hback""><input name=""MovieCompetence"" type=""radio"" onClick=""showThumbnail_RateOrSize(0,'UserGroup')"" value=""0"" checked>" &vbcrlf
Response.Write"所有会员组" &vbcrlf
Response.Write"<input type=""radio"" name=""MovieCompetence"" value=""1"" onClick=""showThumbnail_RateOrSize(1,'UserGroup')"">" &vbcrlf
Response.Write"指定会员组</td>" &vbcrlf
Response.Write"</tr>" &vbcrlf
Response.Write"<tr id=UserGroup style=""display:none"">" &vbcrlf
Response.Write"<td height=32 colspan=""4"" class=""hback"">"& GetUserGroup_CheckBox(MovieGroup,6) &"</td>" &vbcrlf
Response.Write"</tr>" &vbcrlf
Response.Write"<tr>" &vbcrlf
Response.Write"<td height=32 align=""right"" class=""hback"">开放方式：</td>" &vbcrlf
Response.Write"<td colspan=""3"" class=""hback""><input name=""MovieLook"" type=""checkbox"" value=""1"" checked>" &vbcrlf
Response.Write"在线观看" &vbcrlf
Response.Write"<input type=""checkbox"" name=""MovieDown"" value=""1"">" &vbcrlf
Response.Write"影片下载 </td>" &vbcrlf
Response.Write"</tr>" &vbcrlf
Response.Write"<tr>" &vbcrlf
Response.Write"<td height=32 align=""right"" class=""hback"">影片属性：</td>" &vbcrlf
Response.Write"<td colspan=""3"" class=""hback""><input type=""checkbox"" name=""MovieSuggest"" value=""1"">" &vbcrlf
Response.Write"推荐影片" &vbcrlf
Response.Write"<input type=""checkbox"" name=""MovieHot"" value=""1"">" &vbcrlf
Response.Write"热点影片" &vbcrlf
Response.Write"<input type=""checkbox"" name=""MovieSerialization"" value=""1"">" &vbcrlf
Response.Write"连载影片" &vbcrlf
Response.Write"<input type=""checkbox"" name=""MovieFeature"" value=""1"" onClick=""showcheckbox('MovieFeature','Featureshow')"">" &vbcrlf
Response.Write"专题影片" &vbcrlf
Response.Write"<input name=""MovieFree"" type=""checkbox"" id=""MovieFree"" value=""1"">" &vbcrlf
Response.Write"免费试看 </td>" &vbcrlf
Response.Write"</tr>" &vbcrlf
Response.Write"<tr id=""Featureshow"" style=""display:none"">" &vbcrlf
Response.Write"<td height=32 align=""right"" class=""hback"">所属专题：</td>" &vbcrlf
Response.Write"<td colspan=""3"" class=""hback""><input name=""FeatureName"" type=""text"" size=""40"" readonly>" &vbcrlf
Response.Write"<input name=""FeatureID"" type=""hidden"" id=""FeatureID"" value="""">" &vbcrlf
Response.Write"<input type=""button"" name=""SubmitFeature"" value=""选择栏目"" onClick=""SelectFeature();"">" &vbcrlf
Response.Write"<input type=""button"" name=""SubmitFeatureAdd"" value=""添加栏目"" onClick=""window.location.href='../Admin_FeatureType.asp?Action=Add'""></td>" &vbcrlf
Response.Write"</tr>" &vbcrlf
Response.Write"<tr>" &vbcrlf
Response.Write"<td height=32 align=""right"" class=""hback"">入库类型：</td>" &vbcrlf
Response.Write"<td colspan=""3"" class=""hback""><input name=""InflowType"" type=""radio"" value=""1"" checked>" &vbcrlf
Response.Write"普通地址" &vbcrlf
Response.Write"<input type=""radio"" name=""InflowType"" value=""2"">" &vbcrlf
Response.Write"P2P地址" &vbcrlf
Response.Write"<input type=""radio"" name=""InflowType"" value=""3"">" &vbcrlf
Response.Write"小偷模式" &vbcrlf
Response.Write"<input type=""radio"" name=""InflowType"" value=""4"">" &vbcrlf
Response.Write"框架模式</td>" &vbcrlf
Response.Write"</tr>" &vbcrlf
Response.Write"<tr>" &vbcrlf
Response.Write"<td height=32 colspan=""4"" align=""center"" class=""hback""><input name=""ID"" type=""hidden"" value="""&ID&"""><input type=""button"" name=""Submit"" value=""入 库"" onClick=""SubmitMovie();""></td>" &vbcrlf
Response.Write"</tr>" &vbcrlf
Response.Write"</form>" &vbcrlf
Response.Write"</tbody>" &vbcrlf
Response.Write"</table>" &vbcrlf
end sub
sub WriteJD()
Response.Write"<TABLE class=table cellSpacing=1 cellPadding=3 width=""98%"" align=center border=0>" &vbcrlf
Response.Write"<TBODY>" &vbcrlf
Response.Write"<TR>" &vbcrlf
Response.Write"<TD class=xingmu>入库进度</TD>" &vbcrlf
Response.Write"</TR>" &vbcrlf
Response.Write"<TR align=""center"">" &vbcrlf
Response.Write"<TD height=32 class=""hback""><div class=""RefreshLen""><span class=""xingmu"" id=""RefreshLenx""></span></div></TD>" &vbcrlf
Response.Write"</TR>" &vbcrlf
Response.Write"<TR>" &vbcrlf
Response.Write"<TD height=32 align=""center"" class=""hback"">总共要入库<span id=""MovieNum""></span>个影片,已经入库<span id=""MovieHtmlNum"">0</span>个影片</TD>" &vbcrlf
Response.Write"</TR>" &vbcrlf
Response.Write"<TR align=""center"">" &vbcrlf
Response.Write"<TD height=32 class=""hback""><a href=""Admin_Inflow.asp"">返回</a></TD>" &vbcrlf
Response.Write"</TR>" &vbcrlf
Response.Write"</TBODY>" &vbcrlf
Response.Write"</TABLE>" &vbcrlf
end sub
sub EditSave()
Set Rs=Server.CreateObject(YWNT_TMS_RS)
sql="select * from movie where ID="&Request.Form("ID")
Rs.open sql,connx,1,3
RS("title")=Request.Form("MovieName")
RS("name")=Request.Form("MovieActor")
RS("tupian")=Request.Form("MoviePic")
RS("typeid")=Request.Form("typeid")
RS("region")=Request.Form("region")
RS("CollectZT")=Request.Form("CollectZT")
RS("content")=Request.Form("Content")
Rs.Update
Rs.Close
Set Rs = Nothing
Set Rs = server.CreateObject(YWNT_TMS_RS)
sql="select * from url where nameid="&Request.Form("ID")&" Order by ID asc"
Rs.open sql,connx,1,3
do while not Rs.eof
i=i+1
RS("url")=Request.Form("Url"&i)
Rs.update
Rs.movenext
loop
Rs.close
set Rs=nothing
Call AddLog("采集影片修改",9)
call Admin_ShowErr("<li>修改影片成功</li>","Admin_Inflow.asp",1)
end sub
sub Del()
Set Rs = server.CreateObject(YWNT_TMS_RS)
sql="select tupian from movie where ID in ("&Request("ID")&") and CollectZT<>1"
Rs.open sql,connx,1,1
do while not Rs.eof
Call DeleteFile(Rs("tupian"))
Rs.movenext
loop
Rs.close
set Rs=nothing
connx.execute "delete from movie WHERE ID in ("&Request("ID")&")"
connx.execute "delete from url WHERE nameid in ("&Request("ID")&")"
Call AddLog("删除采集影片",9)
call Admin_ShowErr("<li>删除影片成功！</li>","Admin_Inflow.asp",1)
end sub
sub DelUrl()
connx.execute "delete from url WHERE ID="&Request.QueryString("ID")&""
response.redirect Request.ServerVariables("HTTP_REFERER")
end sub
sub IDInflow()
call Inflow("IDX",Request.Form("ID"))
end sub
sub AllInflow()
call Inflow("All","")
end sub
sub IDX()
Call WriteJD()
MovieNumW=Connx.Execute("Select count(ID) from movie where ID in ("&Request.Form("ID")&") and CollectZT<>1")(0)
Sql_Collect="select * from movie Where id in ("&Request.Form("ID")&") and CollectZT<>1"
Call MovieInflow(Sql_Collect,MovieNumW)
connx.execute("update movie set CollectZT=1 where id in ("&Request.Form("ID")&")")
Call RemoveAllCache()
Call AddLog("采集影片批量入库",9)
end sub
sub All()
Call WriteJD()
MovieNumW=Connx.Execute("Select count(ID) from movie where CollectZT<>1")(0)
Sql_Collect="select * from movie where CollectZT<>1"
Call MovieInflow(Sql_Collect,MovieNumW)
connx.execute("update movie set CollectZT=1")
Call RemoveAllCache()
Call AddLog("采集影片全部入库",9)
end sub
sub MovieInflow(Sql_Collect,MovieNumW)
On Error Resume Next
set RS_Collect=Server.CreateObject(YWNT_TMS_RS)
RS_Collect.open Sql_Collect,connx,1,1
do while not RS_Collect.eof
set RS_MOVIE=Server.CreateObject(YWNT_TMS_RS)
sql_MOVIE="select * from YWNT_TMS_Movie"
RS_MOVIE.open sql_MOVIE,conn,1,3
RS_MOVIE.addnew
RS_MOVIE("SeverID")=Request.Form("SeverID")
if RS_Collect("ClassType")=1 then
RS_MOVIE("TypeID")=CollectTypeZH(RS_Collect("typeid"))
else
RS_MOVIE("TypeID")=RS_Collect("typeid")
end if
RS_MOVIE("MovieName")=RS_Collect("title")
RS_MOVIE("MovieActor")=replace(replace(RS_Collect("name"),",","|")," ","|")
if RS_Collect("RegionType")=1 then
RS_MOVIE("MovieRegion")=CollectRegionZH(RS_Collect("region"))
else
RS_MOVIE("MovieRegion")=RS_Collect("region")
end if
RS_MOVIE("MoviePic")=RS_Collect("tupian")
RS_MOVIE("MovieCoin")=Request.Form("MovieCoin")
RS_MOVIE("MovieClick")=Request.Form("MovieClick")
RS_MOVIE("MovieCompetence")=Request.Form("MovieCompetence")
RS_MOVIE("MovieGroup")=Request.Form("GroupID")
RS_MOVIE("MovieLook")=Request.Form("MovieLook")
RS_MOVIE("MovieDown")=Request.Form("MovieDown")
RS_MOVIE("MovieSuggest")=Request.Form("MovieSuggest")
RS_MOVIE("MovieHot")=Request.Form("MovieHot")
RS_MOVIE("MovieSerialization")=Request.Form("MovieSerialization")
if Request.Form("MovieFeature")<>"" then
RS_MOVIE("MovieFeature")=1
else
RS_MOVIE("MovieFeature")=0
end if
if Request.Form("MovieFree")<>"" then
RS_MOVIE("MovieFree")=Request.Form("MovieFree")
end if
if Request.Form("FeatureID")<>"" then
RS_MOVIE("MovieFeatureID")=Request.Form("FeatureID")
end if
RS_MOVIE("MovieContent")=RS_Collect("content")
RS_MOVIE("MovieAudit")=1
RS_MOVIE("MovieDate")=Now()
RS_MOVIE("InflowType")=Request.Form("InflowType")
RS_MOVIE.update
RS_MOVIE.close
set RS_MOVIE=nothing
set RS_MOVIE = Conn.execute("select top 1 ID from YWNT_TMS_Movie Order by ID desc")
MovieID=RS_MOVIE("ID")
RS_MOVIE.Close
Set RS_MOVIE = Nothing
Sql_Collect2="select * from url where nameid="&RS_Collect("ID")&" Order by ID asc"
set RS_Collect2=server.createobject(YWNT_TMS_RS)
RS_Collect2.open Sql_Collect2,connx,1,1
do while not RS_Collect2.eof
Select Case Request.Form("InflowType")
Case 1
conn.Execute("insert into YWNT_TMS_MovieUrl(MovieUrl,MovieID) values('"&RS_Collect2("url")&"',"&MovieID&")")
Case 2
conn.Execute("insert into YWNT_TMS_P2PUrl(P2PUrl,MovieID) values('"&RS_Collect2("url")&"',"&MovieID&")")
Case 3,4
conn.Execute("insert into YWNT_TMS_MovieUrl(MovieUrl,MovieID) values('"&RS_Collect2("weburl")&"',"&MovieID&")")
End Select
RS_Collect2.movenext
loop
RS_Collect2.close
set RS_Collect2=nothing
MovieInflowNum=MovieInflowNum+1
Response.Write "<script type=""text/javascript"" language=""javascript"">" & vbNewLine
Response.Write vbTab & "document.getElementById(""RefreshLenx"").style.width = """&(MovieInflowNum/MovieNumW)*100&"%"&""";" & vbNewLine
Response.Write vbTab & "document.getElementById(""RefreshLenx"").innerHTML = """&Round((MovieInflowNum/MovieNumW)*100)&"%"&""";" & vbNewLine
Response.Write vbTab & "document.getElementById(""MovieHtmlNum"").innerHTML = """ & MovieInflowNum & """;" & vbNewLine
Response.Write vbTab & "document.getElementById(""MovieNum"").innerHTML = """ & MovieNumW & """;" & vbNewLine
Response.Write "</script>" & vbNewLine
Response.Flush
RS_Collect.movenext
loop
RS_Collect.close
set RS_Collect=nothing
end sub
Action=Trim(request("Action"))
Select Case Action
Case "Edit"
Set Rs=Server.CreateObject(YWNT_TMS_RS)
sql="select * from movie where ID="&Request.QueryString("ID")
Rs.open sql,connx,1,1
ID=RS("ID")
title=RS("title")
name=RS("name")
CollectZT=RS("CollectZT")
tupian=RS("tupian")
typeid=RS("typeid")
region=RS("region")
content=RS("content")
ClassType=RS("ClassType")
RegionType=RS("RegionType")
RS.close
set RS=nothing
call Edit()
Case "EditSave"
call EditSave()
Case "Del"
call Del()
Case "DelUrl"
call DelUrl()
Case "AllInflow"
call AllInflow()
Case "IDInflow"
call IDInflow()
Case "All"
call All()
Case "IDX"
call IDX()
Case else
call List()
End Select
sub List()
Dim int_RPP
int_RPP=GetConfig("PageNumber") '设置每页显示数目%>
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" class=table>
<tr>
<td height="25" valign="center" class="hback">选择状态：<A href="Admin_Inflow.asp?CollectZT=1">已入库</A> -- <A href="Admin_Inflow.asp?CollectZT=0">未入库</A> -- <A href="Admin_Inflow.asp">所有</A> </td>
</tr>
</table>
<table class=table cellspacing=1 cellpadding=3 width="98%" align=center border=0>
<tr>
<td colspan="5" class=xingmu>影片查询</td>
</tr>
<form action="Admin_Inflow.asp" method="post">
<tr>
<td colspan="3" align="right" class="hback">按影片名称查询：</td>
<td class="hback"><input name="MovieName" type="text" id="MovieName" size="40"></td>
<td class="hback"><input type="submit" name="Submit2" value="查 询"></td>
</tr>
</form>
</table>
<table class=table cellspacing=1 cellpadding=3 width="98%" align=center border=0>
<tr>
<td width="5%" align="center" class=xingmu>ID</td>
<td align="center" class=xingmu>影片名称</td>
<td width="10%" align="center" class=xingmu>状态</td>
<td width="20%" align="center" class=xingmu>采集站点</td>
<td width="18%" align="center" class=xingmu>添加时间</td>
<td colspan="2" align="center" class=xingmu>操作</td>
</tr>
<form name="forms" action="Admin_Inflow.asp" method="post">
<% Set Rs = server.CreateObject(YWNT_TMS_RS)
sql="Select ID,title,CollectZT,ClassName,TimeDate from movie"
if Request.QueryString("CollectZT")<>"" then
sql=sql&" where CollectZT="&Request.QueryString("CollectZT")&" Order by ID desc"
else
if Request.Form("MovieName")<>"" then
sql=sql&" where InStr(1,LCase(title),LCase('"&Request.Form("MovieName")&"'),0)<>0 Order by ID desc"
else
sql=sql&" Order by ID desc"
end if
end if
Rs.open sql,connx,1,1
if Rs.eof then
Response.Write"<TR class=""hback""><TD colspan=""7"" class=""hback"" height=""40"">没有记录。</TD></TR>"
else
Rs.PageSize=int_RPP
cPageNo=Request.QueryString("Page")
If cPageNo="" Then cPageNo = 1
If not isnumeric(cPageNo) Then cPageNo = 1
cPageNo = Clng(cPageNo)
If cPageNo>Rs.PageCount Then cPageNo=Rs.PageCount
If cPageNo<=0 Then cPageNo=1
Rs.AbsolutePage=cPageNo
for i=1 to int_RPP
if Rs.eof Then exit For %>
<tr>
<td height=32 align="center" class="hback"><%=RS("ID")%></td>
<td height=32 class="hback"><%=RS("title")%></td>
<td height=32 class="hback" align="center"><%IF RS("CollectZT")=1 Then Response.Write"已入库" Else Response.Write"未入库"%></td>
<td height=32 align="center" class="hback"><%=RS("ClassName")%></td>
<td height=32 align="center" class="hback"><%=RS("TimeDate")%></td>
<td width="10%" align="center" class="hback"><A href="Admin_Inflow.asp?Action=Edit&ID=<%=RS("ID")%>">修改</A>｜<A href="Admin_Inflow.asp?Action=Del&ID=<%=RS("ID")%>">删除</A></td>
<td width="3%" align="center" class="hback"><input name="ID" type="checkbox" id="ID" value="<% = RS("ID")%>"></td>
</tr>
<%Rs.MoveNext
next
end if%>
<tr>
<td height=32 colspan="6" align="right" class="hback">
<input type="button" name="Submit" value="全部入库" onClick="document.forms.Action.value='AllInflow';{if(confirm('全部入库你所采集的影片吗？')){this.document.forms.submit();return true;}return false;}">
<input type="button" name="Submit" value="入库" onClick="document.forms.Action.value='IDInflow';{if(confirm('确定入库您所选择的影片吗？')){this.document.forms.submit();return true;}return false;}">
<input type="button" name="Submit" value="删除" onClick="document.forms.Action.value='Del';{if(confirm('确定删除您所选择的影片吗？')){this.document.forms.submit();return true;}return false;}">
</td>
<td align="center" class="hback"><input name="Action" type="hidden" id="Action">
<input type="checkbox" name="chkall" value="checkbox" onClick="CheckAll(document.forms.chkall.checked);"></td>
</tr>
</form>
<tr align="right">
<td height=32 colspan="7" class="hback"><% response.Write fPageCount(Rs,cPageNo) %></td>
</tr>
</table>
<%end sub
sub Edit()%>
<table class=table cellspacing=1 cellpadding=3 width="98%" align=center border=0>
<tr>
<td colspan="4" class=xingmu>修改影片</td>
</tr>
<form action="Admin_Inflow.asp?Action=EditSave" method="post" name="form">
<tr>
<td width="21%" height=32 align="right" class="hback">影片名称：</td>
<td class="hback"><input name="MovieName" type="text" value="<%=title%>" size="40"></td>
</tr>
<tr>
<td height=32 align="right" class="hback">影片演员：</td>
<td class="hback"><input name="MovieActor" type="text" value="<%=name%>" size="40"></td>
</tr>
<tr>
<td height=32 align="right" class="hback">影片图片：</td>
<td class="hback"><input name="MoviePic" type="text" value="<%=tupian%>" size="40"></td>
</tr>
<tr>
<td height=32 align="right" class="hback">影片栏目：</td>
<td class="hback"><%if ClassType=1 then%><input name="typeid" type="text" value="<%=typeid%>" size="40"><%else%><select name="typeid" id="typeid">
<%Response.Write EditClassID(0,"","")%>
</select><%end if%></td>
</tr>
<tr>
<td height=32 align="right" class="hback">影片地区：</td>
<td class="hback"><%if RegionType=1 then%><input name="region" type="text" value="<%=region%>" size="40"><%else call MovieRegion("region","") end if%></td>
</tr>
<tr>
<td height=32 align="right" class="hback">入库状态：</td>
<td class="hback">
<input type="radio" name="CollectZT" value="0" <%IF CollectZT=0 Then Response.Write"checked"%>> 未入库
<input name="CollectZT" type="radio" value="1" <%IF CollectZT=1 Then Response.Write"checked"%>> 已入库</td>
</tr>
<tr><td class="hback" align="right">影片地址：</td>
<td class="hback"><%Set Rs = server.CreateObject(YWNT_TMS_RS)
sql="Select * from url where nameid="&ID&" Order by ID asc"
Rs.open sql,Connx,1,1
do while not RS.eof
i=i+1
Response.Write"<input type=""text"" name=""Url"&i&""" size=50 value="""&RS("url")&"""> 第"&i&"集 <a href=""Admin_Inflow.asp?Action=DelUrl&id="&RS("ID")&"""><font color=""#FF0000"">删除</font></a><br>" &vbcrlf
RS.movenext
loop
RS.close
set RS=nothing%></td>
</tr>
<tr>
<td align="right" class="hback">影片介绍：</td>
<td class="hback"><textarea name="Content" style="width:100%;height:400px;"><%=Content%></textarea></td>
</tr>
<tr>
<td height=32 colspan="2" align="center" class="hback"><input type="button" name="button" value="返 回" onClick="window.location.href='javascript:history.go(-1)'">
<input type="hidden" name="ID" value="<%=ID%>">
<input type="submit" name="Submit" value="修 改"></td>
</tr>
</form>
</table>
<%end sub
call connxclose()
call connclose()%>
</BODY></HTML>